ETO Development Tools 1/ETO Development Tools 1.iso/Essentials/Developer Essentials Jul 90/U.S. System⁄HyperCard/HyperCard—US 1.2.5/HyperCard Ideas-US 1.2.5/Idea Stacks/Stack Ideas/background_55040.txt

Text File | 1988-11-07 | 9.6 KB | 446 lines

-- background: 55040 from stack: in
-- bmap block id: 49535
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
on newStack
  extend
end newStack

on extend
  -- type "extend" into the message box and press return to make
  -- a year's worth of new cards.
  if the name of this stack contains "stack ideas"
  then
  answer "Please make a new stack before extending it." with "OK"
else
  answer "Make another year of new cards?" with "OK" or "Cancel"
  if it is "Cancel" then exit extend
  put 60*60*24 into OneDay        --seconds in a day
  go to last card of this background
  put getStartDate() into start      --what date to begin on
  if start is "Cancel" then exit extend
  repeat with cnt = 1 to 53   --weeks in a year
    put start into it        --a copy
    convert it to long date
    delete item 1 of it   -- get rid of "Monday,"
    put it into field "Week"

    Repeat with index = 1 to 7
      put word index of ("Monday Tuesday Wednesday Thursday" && "Friday Saturday Sunday") into myDay
      put start into it
      --convert each day so that date rolls over to "1"
      --at end of month
      convert it to long date
      put (word 2 of item 2 of it) into field myDay
      add OneDay to start
    end repeat
    doMenu New Card
  end repeat
  doMenu "delete card"     --get rid of extra card at end
end if
end extend

function getStartDate
-- end of stack or today, whichever is newer
get field "Week"
if it is empty then put the date into it
put startOfWeek(it) into it    --so we can compare
put the date into thisWeek
put startOfWeek(thisWeek) into thisWeek    --both at week starts in seconds
if thisWeek < 2587766400 then
  answer "Set the Control Panel to today's date" with "OK"
  return "Cancel"
end if
if it >= thisWeek then return it   --calendar already beyond today
convert it to short date
convert thisWeek to short date
answer "Start from which date?" with it or thisWeek or "Cancel"
if it is "Cancel" then return it
convert it to seconds
return it
end getStartDate

function startOfWeek aDate     -- the seconds for the start of this week
put 60*60*24 into OneDay      --seconds in a day
put aDate into it
convert it to long date
repeat while item 1 of it <> "Monday"
  convert it to seconds
  subtract OneDay from it
  convert it to long date
end repeat
convert it to seconds
return it
end startOfWeek


on openBackground
  push recent card
end openBackground


-- part 11 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=68 top=27 right=47 bottom=381
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: Week


-- part 29 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=5 top=47 right=69 bottom=36
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Monday


-- part 30 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=129 top=47 right=69 bottom=160
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Tuesday


-- part 31 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=254 top=47 right=69 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Wednesday


-- part 32 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=380 top=47 right=69 bottom=411
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Thursday


-- part 33 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=5 top=190 right=212 bottom=36
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Friday


-- part 34 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=129 top=190 right=212 bottom=160
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Saturday


-- part 35 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=254 top=190 right=212 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Sunday


-- part 12 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=5 top=79 right=185 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 22 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=129 top=79 right=185 bottom=252
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 23 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=254 top=79 right=185 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 24 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=380 top=79 right=185 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 25 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=5 top=222 right=328 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 26 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=129 top=222 right=328 bottom=252
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 27 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=254 top=222 right=328 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 28 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=380 top=222 right=302 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 37 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=380 top=24 right=50 bottom=417
-- title width / last selected line: 0
-- icon id / first selected line: 4432 / 4432
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go to To Do
----- HyperTalk script -----
on mouseUp
  go to card "First Do" of "Datebook"
end mouseUp



-- part 38 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=418 top=22 right=48 bottom=455
-- title width / last selected line: 0
-- icon id / first selected line: 3430 / 3430
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Address
----- HyperTalk script -----
on mouseUp
  get the selection
  visual effect zoom open
  go to "Address"
  if it is not empty then find it
end mouseUp



-- part 39 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=381 top=309 right=334 bottom=408
-- title width / last selected line: 0
-- icon id / first selected line: 15420 / 15420
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card
end mouseUp



-- part 40 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=407 top=310 right=333 bottom=434
-- title width / last selected line: 0
-- icon id / first selected line: 16560 / 16560
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card
end mouseUp



-- part 41 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=475 top=310 right=335 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 6720 / 6720
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=456 top=28 right=45 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Extend
----- HyperTalk script -----
on mouseUp
  extend
end mouseUp



-- part 43 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=348 top=23 right=52 bottom=380
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go Home
end mouseUp